home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / mikecom / xonany.asm < prev    next >
Assembly Source File  |  1987-05-20  |  1KB  |  38 lines
  1.  
  2. title ACCEPT ANY CHAR FOR XON
  3. include subfx.h
  4.  
  5. ;  Mike Dumdei,  6 Holly Lane,  Texarakana TX  75503
  6.  
  7. ;**************************************************************************
  8. ; ASYNC_XONANY --  Causes any character received to be treated as an XON.
  9. ;    Returns R_BADARG if not using XON/OFF, R_NOPORT if invalid port, else
  10. ;    returns R_OK.
  11. ;**************************************************************************
  12. begseg          COMM_TEXT
  13. publicproc      _async_xonany
  14.         push    bp
  15.         mov     bp,sp
  16.         push    si              ;stack frame setup
  17.         call    __ck_port_arg   ;ck if valid, load pointers
  18.         jz      any_exit        ;bad arg if ZR flag set
  19.         mov     ax,R_BADARG
  20.         test    STAT2,B_XUSE
  21.         jz      any_exit        ;bad arg in not using XON/OFF protocol
  22.         xor     ax,ax           ;else will return R_OK
  23.         cmp     Flag,OFF
  24.         je      disable_xonany
  25. ;enable_xonany:
  26.         or      STAT3,B_XONANY  ;show any char is to be an XON
  27.         jmp s   any_exit
  28. disable_xonany:
  29.         and     STAT3,n B_XONANY ;disable any char treated as XON
  30. any_exit:
  31.         pop     si
  32.         pop     bp
  33.         ret                     ;restore regs and exit
  34. _async_xonany   endp
  35.  
  36. endseg          COMM_TEXT
  37.         end
  38.